home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / Eval.dxr / 00013_Main button controls.ls < prev    next >
Encoding:
Text File  |  1998-12-16  |  680 b   |  37 lines
  1. property clicked, movieChoice
  2.  
  3. on mouseDown me
  4.   set the clicked of me to 1
  5.   puppetSound("mouseDown.aif")
  6. end
  7.  
  8. on mouseUp me
  9.   if the clicked of me then
  10.     case the spriteNum of me of
  11.       40:
  12.         leaveThisMovie()
  13.       41:
  14.         goBack()
  15.       42:
  16.         GoOn()
  17.       43:
  18.         printEvaluation()
  19.       44:
  20.         notePadButton()
  21.     end case
  22.   end if
  23.   set the clicked of me to 0
  24. end
  25.  
  26. on mouseUpOutSide me
  27.   set the clicked of me to 0
  28. end
  29.  
  30. on beginSprite me
  31.   set the clicked of me to 0
  32. end
  33.  
  34. on getBehaviorDescription
  35.   return "Main button action in an activity, based on channel number." & RETURN & "Works on mouseUp, only if mouseDown occured on this sprite."
  36. end
  37.